home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / CAMELOT.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  28 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for Camelot: remote,password,handle
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   handle:   name or number. Assumed equal to "%n1 %n2" if omitted
  10.  :
  11.  handshake on;ena -K!EZ
  12.  p?0 findq "\n%remote," %lib/%ZCUSER.ids
  13.  if ? split z0 , , "";if %z1 goto haveuser
  14.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  15.  ife r nolog close;return
  16. haveuser:
  17.  if !%z2 sets z2 "%n1 %n2"
  18.  pat;pat 0 "\rD'Bridge";pat 1 "FrontDoor ";pat 2 "BinkleyT"
  19. inituser:
  20.  pat 3c "name: " "%z2\r"
  21.  pat 4c "Password: " "%z1\r"
  22.  pat 5i "Checking your"
  23.  wait -f40;if n bye;ife r nolog close;return
  24.  if 0||1 pat;ena -t put \E\E ena -!t goback inituser
  25.  if 2 pat;mput \E;goback inituser
  26.  pat;pat 24cp "rz\r**\030" "@rz -p"
  27.  pf600 while c wait -f600
  28.